home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Train.dxr / Internal_8_lil tile.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.4 KB  |  66 lines
  1. property pSprite, spriteNum, pchar, ptilelist, ptilelist2, pquestionnum, pnorm, pselect, pdown, myques, pActive, plist2, pfound
  2. global gtiles, gblue, gsel, lasttile, currentscope, gword, isInWord, gcurrsprites, carm, gactive, gcheck
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   gtiles.add(pSprite)
  7.   pActive = 0
  8.   if gtiles.count = (15 * 15) then
  9.     createPuzzle()
  10.   end if
  11. end
  12.  
  13. on init me
  14.   pnorm = pSprite.member
  15.   pActive = 1
  16.   pdown = member(pSprite.member.name & "1")
  17.   pfound = member(pSprite.member.name & "3")
  18. end
  19.  
  20. on mouseDown me
  21.   if not gactive then
  22.     if pActive then
  23.       pActive = 0
  24.       pSprite.member = pdown
  25.       gword.add(pnorm.name)
  26.       gcurrsprites.add(pSprite.spriteNum)
  27.       gcheck = 1
  28.       gactive = 1
  29.       gcheck = 1
  30.     end if
  31.   end if
  32. end
  33.  
  34. on mouseEnter me
  35.   if gactive then
  36.     if pActive then
  37.       puppetSound(4, "highlight letter")
  38.       ve = [pSprite.locH.float - mouseH().float, pSprite.locV.float - mouseV().float]
  39.       vel = sqrt((ve[1] * ve[1]) + (ve[2] * ve[2]))
  40.       if vel <= 10 then
  41.         pActive = 0
  42.         pSprite.member = pdown
  43.         gword.add(pnorm.name)
  44.         gcurrsprites.add(pSprite.spriteNum)
  45.       end if
  46.     end if
  47.   end if
  48. end
  49.  
  50. on mouseWithin me
  51.   mouseEnter(me)
  52. end
  53.  
  54. on mouseUp me
  55.   if gcheck then
  56.     puppetSound(4, "find word")
  57.     checkKey()
  58.     gactive = 0
  59.     gcheck = 0
  60.   end if
  61. end
  62.  
  63. on mouseUpOutSide me
  64.   mouseUp(me)
  65. end
  66.